home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / robo40_a.zip / PCB_SET.RS < prev    next >
Text File  |  1992-02-12  |  2KB  |  63 lines
  1. TITLE "Update PCBoard Settings (Password)"
  2.  
  3. ;-----------------------------------------------------------------------
  4. ; NOTE: It is not necessary to change your password on the Directory-BBS
  5. ;       screen after using this script.  Robocomm will do it for you.
  6. ;-----------------------------------------------------------------------
  7.  
  8. ; The numbers on the next lines don't actually do anything.  They are
  9. ; only added to increase the readability of the script.  Robocomm
  10. ; always numbers parameters in the order they are encountered in
  11. ; the file.
  12. PARAMETER 1 "Enter the new password"
  13. PARAMETER 2 "Enter your City and State"
  14. PARAMETER 3 "Business or Data Phone"
  15. PARAMETER 4 "Home or Voice Phone"
  16. PARAMETER 5 "Brand of CPU you are using"
  17.  
  18. ; The following line is not necessary, but will speed up the pop-up
  19. ; display on the agenda screen because Robocomm doesn't need to look
  20. ; through the rest of the file for PARAMETER lines.
  21. ENDPARAMS
  22.  
  23.     ; There's no need for a big timeout value here, so set it low
  24.     ; to recover quickly in the event of an line-noise error.
  25.     TIMEOUT 10
  26.  
  27.     MESSAGE "Changing password"
  28.  
  29.     ; Send the command to enter the "Write Settings" function.
  30.     WAITFOR "%BBS35%"
  31.     SEND "W|"
  32.  
  33.     WAITFOR "PASSWORD" FAILURE ERROR
  34.     IF NOT EMPTY "%P1%" SEND "%P1%|%P1%"
  35.     SEND "|"
  36.     SEND "%P2%|"
  37.     SEND "%P3%|"
  38.     SEND "%P4%|"
  39.     SEND "%P5%|"
  40.  
  41.     ; Send a bunch of <CR> to get through the other prompts
  42.     ; without modifications
  43.     SEND "||||"
  44.  
  45.     ;Keep an eye out for an error message from PCBoard.
  46.     WHEN "DO NOT MATCH" GOTO ERROR
  47.  
  48.     ;Wait till we get back to the main board to verify the password change
  49.     WAITFOR "%BBS35%"
  50.  
  51.     ;Update the password in the BBS database if the parameter was set.
  52.     IF NOT EMPTY "%P1%" PASSWORD "%P1%"
  53.  
  54. EXIT 0
  55.  
  56.  
  57. ;------------------------------------------------------------------------------
  58. :ERROR
  59. ;------------------------------------------------------------------------------
  60.     MESSAGE "Line noise detected or timeout.  Password not updated!"
  61.     SEND "|||||||"
  62. EXIT 1
  63.